Sub muestra_is3()
    Dim a As New Collection
    Dim b As Collection
    If TypeOf a Is Collection Then
        Debug.Print "Es de tipo Collection"
    Else
        Debug.Print "NO es de tipo Collection"
    End If
End Sub
